home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / ANSWER.LIT < prev    next >
Text File  |  1990-01-13  |  2KB  |  39 lines
  1. *[ANSWER.LIT]*****************************************************************
  2. * Description: Part of SYSMENU.LIT.  Adjusts ANSWERIT routine.               *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: SYSMENU = OFF & RBBSANS = ON                             *
  6. * Additional files: SYSMENU.LIT                                              *
  7. ******************************************************************************
  8. 237 LOCATE 18,76
  9.     IF ZDosANSI THEN _
  10.        CALL LPrnt(ZEscape$ + "[05m" + "YES" + ZEscape$ + "[00m",0) _
  11.     ELSE CALL LPrnt ("YES",0)
  12.     COLOR ZFG,ZBG,ZBorder
  13.     LOCATE 20,56
  14. '
  15. ' *****************************************************************************
  16. ' *  GET READY TO ANSWER INCOMMING CALL:                                      *
  17. ' *       1.  LET THE MODEM "AUTO-ANSWER" FOR RBBS-PC.                        *
  18. ' *           REQUIRED RINGS = 0 AND S0 = 1 IN MODEM INIT COMMAND.            *
  19. ' *       2.  ANSWER THE MODEM ON A SPECIFIED NUMBER OF RINGS.                *
  20. ' *           REQUIRED RINGS > 0 AND S0 = 254 IN MODEM INIT COMMAND.          *
  21. ' *       3.  ANSWER THE MODEM ON A SPECIFIED NUMBER OF RINGS AFTER A USER    *
  22. ' *           FIRST CALLS AND THEN HANGS UP (I.E. RING-BACK).                 *
  23. ' *           REQUIRED RINGS > 0 AND S0 = 255 IN MODEM INIT COMMAND.          *
  24. ' *****************************************************************************
  25. '
  26.     WasQQ = 255
  27.     WasI = INSTR(ZModemInitCmd$,"S0")
  28.     IF WasI = 0 OR PCJr THEN _
  29.        GOTO 239
  30.     IF VAL(MID$(ZModemInitCmd$,WasI + 3,3)) = 255 THEN _
  31.        WasQQ = 0 : _
  32.        ZBlk = WasQQ
  33.     ZSecsUsedSession! = TIMER                                        ' DA111104
  34.     ZSubParm = 1
  35.     CALL Line25
  36.     RingAnswer = ZTrue
  37.     IF RingBack THEN _
  38.        RingAnswer = ZFalse
  39.